﻿Namespace Attributes
    <System.AttributeUsage(System.AttributeTargets.Property, AllowMultiple:=False, Inherited:=True), System.Serializable()> _
    Public Class DescriptionPartAttribute
        Inherits Attribute
        Implements IPropertyAttribute
        Private _Order As Integer
        Public Property Order() As Integer
            Get
                Return _Order
            End Get
            Set(ByVal value As Integer)
                _Order = value
            End Set
        End Property

        Sub New(ByVal Order As Integer)
            Me.Order = Order
        End Sub
    End Class
End Namespace

